Besoin d'aide pour supprimer des fichiers et pour la lecture du contenu de repertoire

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour ,
Je développe un navigateur web avec les fonctionnalités les plus courantes dont l'ajout de Favoris.Cette partie là est bien réalisé,les liens des favoris s'ajoute bien dans mon repertoire Liens,mais le hic intervient quand je lis mes liens dans ce dit repertoire!Il me lit bien les 2 premiers liens de la premiere ligne ,mais arrivé au 3eme lien situé en 2eme ligne dans le repertoire , il me génére une erreur lors de sa lecture et me le transforme en fichier de type Fichier que je ne peux supprimer ensuite.

Voici la partie de code correspondante à la lecture des liens dans le répertoire
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Private Sub Favoris_bar_ButtonClick(ByVal Button As MSComctlLib.Button) Dim objShell As Shell32.Shell Dim objFolder As Shell32.Folder Dim colItems As Shell32.FolderItems Dim objItem As Shell32.FolderItem Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.NameSpace(App.Path & "\Liens") Set colItems = objFolder.Items i = 0 For Each objItem In colItems i = i + 1 If Button.Index = i Then Navigator.Navigate2 objItem.GetLink.Path End If Next End Sub
Je comprends pas pourquoi il plante a ce niveau , j'ai vraiment besoin d'aide car là je vois pas trop ce que je peux faire de plus!
Je vous remercie d'avance.a bientot

28/04/2006, 14h39
Tyrael62

J'ai réussi à supprimer les fichier de Type Fichier avec Total commander mais j'arrive toujours pas à lire le 3ème lien de mon repertoire!Et à ce que je vois , vous êtes aussi incompétent que moi dans ce domaine!
28/04/2006, 15h18
jmfmarques

Tu crois ?
Commences par rechercher (FAQ) !8O
Le reste est tout juste adaptation à ton cas ...
Mais je n'ai pas l'intention de tout faire pour toi !
D'autres, peut-être ?
profites-en pour nous expliquer ce qu'est "un Fichier type Fichier" ! COMPRENDS PAS CE CHARABIA LA !
28/04/2006, 15h45
Catbull

Citation:

Envoyé par Tyrael62

Et à ce que je vois , vous êtes aussi incompétent que moi dans ce domaine!

Merci, ca fait toujours plaisir de tomber sur de telles marques d'attention au grès de nos lectures forumesques.

Malheureusement les flatteries ne m'ont jamais incitées à donner un coup de main. je te souhaites néanmoins bonne chance dans ton entreprise.
28/04/2006, 19h17
SfJ5Rpw8

Citation:

Envoyé par Tyrael62

J'ai réussi à supprimer les fichier de Type Fichier avec Total commander mais j'arrive toujours pas à lire le 3ème lien de mon repertoire!Et à ce que je vois , vous êtes aussi incompétent que moi dans ce domaine!

désolé je ne connaissai pas l'existence deces lignes :

Citation:

Il me lit bien les 2 premiers liens de la premiere ligne ,mais arrivé au 3eme lien situé en 2eme ligne dans le repertoire ,

puis un fichier de type fichier ??

et ce fameux
If Button.Index = i ? d'ou il sort.
29/04/2006, 10h49
Tyrael62

Pour ce qui est du fichier de Type Fichier , c'est la première que je le rencontre , j'avais pas encore vu cela jusqu'à aujourd'hui!Mais en gros , dans mon répertoire Liens , une fois que je lisais le 3ème lien , il me transformer par exemple : "Raccourci vers Google" de type Raccourci Internet en "Raccourci vers Google" de Type Fichier qui devanait aussitôt un fichier inacessible , et impossible à supprimier ou à déplacer avec les méthodes standard.

Pour ce qui est de mon "If Button.Index = i Then" , il vient de ma Toolbar Favoris qui me permet d'ajouter dynamiquement un bouton de raccourci internet dans ma barre de favoris.C'est pour cela que j'en récupére l'index pour que si l'index du bouton correspond au numero de fichier parcouru alors il lance le lien associé à ce Fichier de raccourci.Et comme je le précisais précédemment , il me lance bien les 2 premiers liens qui se situe sur la premiere dans le repertoire et une fois qui passe à la seconde ligne , le navigateur plante et transforme mes fichiers.

ex : Repertoire Liens

1er lien : Raccourci vers google 2ème lien : Raccourci vers developpez

3eme lien : Raccourci vers ABC Tabs

Voici vite fait comment je vois l'organisation de mon répertoire Liens à mon écran,donc une fois qui passe à la ligne suivante et que je clique sur le lien il me génére cette erreur :"Run-time error '-2147024894(80070002)"
Automation error
Veuillez excuser mon arrogance de mon premier message mais çà fait 3 fois que je poste ce sujet pour ce problème et personne jusqu'à aujourd'hui ne m'avait répondu , je ne demande à ce que vous me donner le code tout fait car c'est pas la meilleure manière d'apprendre mais voilà je suis face à un problème que je ne puis résoudre de part mon inexpérience dans ce langage de programmation et que sincèrement cette méthode que j'utilise devrait me lire tout les raccourci de mon répertoire!J'avais pensais au début à une solution plus simpliste qui consistait à l'ajout de chaque favoris , de placer dans la description du bouton de la toolbar le lien du site pour pouvoir le lire ensuite dans cet évènement mais VB6 ne m'offre aucunement cette possibilité.
29/04/2006, 11h20
ouskel'n'or

Citation:

Envoyé par Tyrael62

Et à ce que je vois , vous êtes aussi incompétent que moi dans ce domaine!

Bien gentils ceux qui continueront à t'aider :king:
29/04/2006, 11h21
bhaal76

pour faire cour, un type "fichier" est tout simplement un fichier sans extension ... (et il y a belle lurette que çà existe).

de plus, ton code me parrais suspect sous plusieur angle ...
tu as en paramètre un objet "button", donc tu connais son index, tu as une collection de lien (on va dire), mais tu fais tout de même une recherche (alors qu'il te suffirai de tester si button.index n'est pas supérieur a la taille de ta collection, et si ce n'est pas le cas, Navigator.Navigate2 colItems(Button.Index).GetLink.Path
enfin, tu fais un parcours qui ne s'arrête pas même si le lien a été trouvé

toutefois, je ne voit rien dans ton code qui puisse modifié l'extension du fichier, execpté si l'objet "navigator" le fais tout seul sur une erreur lors d'un Navigator.Navigate2 ...

excuse accepté (difficilement quand même)
29/04/2006, 12h02
jmfmarques

Bonjour Tyrael !

Je vais essayer de t'aider cet après-midi, mais dois déjà te poser quelques questions .
Je relis tout depuis le début d'abord.
N'interviens pas pour ne pas alourdir ce sujet, STP !
1) quand tu dis :

Citation:

Cette partie là est bien réalisé,les liens des favoris s'ajoute bien dans mon repertoire Liens,mais le hic intervient quand je lis mes liens dans ce dit repertoire!Il me lit bien les 2 premiers liens de la premiere ligne ,mais arrivé au 3eme lien situé en 2eme ligne dans le repertoire , il me génére une erreur lors de sa lecture et me le transforme en fichier de type Fichier que je ne peux supprimer ensuite.

Je suppose que ton 1et problème est la lecture de tout le répertoire, n'est pas ?
Ce répertoire est-il composé uniquement de fichiers ? Quelle est leur extension ? Toujours la même ?
A toi pour cette 1ère question (j'attends ta réponse)
29/04/2006, 13h15
Tyrael62

J'ai trouvé l'erreur , je vous avez pas mis à disposition la procédure de création du fichier , c'est de là que viens l'erreur!En faite , j'ai procédé à divers test pour me rendre compte que lors de l'écriture du raccourci internet , si le nom de ce fichier était trop long , il lui affecte aucune extension et ce fichier est illisible!Je pense que pour palier à ce problème , je devrais m'en sortir!Merci pour ton aide , j'ai remanier le code de manière plus cohérente même si çà fonctionner , çà sera plus clair et plus logique à expliquer si je passe sur cette PTI le jour de l'oral!
29/04/2006, 13h16
Tyrael62

Leur extension est en ".URL"
29/04/2006, 13h21
AlainTech

Citation:

Envoyé par Tyrael62

Il me lit bien les 2 premiers liens de la premiere ligne ,mais arrivé au 3eme lien situé en 2eme ligne dans le repertoire , il me génére une erreur lors de sa lecture et me le transforme en fichier de type Fichier que je ne peux supprimer ensuite.

Personnellement, j'ai bien du mal à comprendre cette phrase.
Tu arrives à mettre 2 liens sur une ligne dans un répertoire???
Pour moi, dans un répertoire, il n'y a que des fichiers. Aucune notion de ligne...
Accessoirement, les fichiers Liens ont une extension .url.

Es-tu certain que la simple lecture d'un fichier lui change (supprime) son extension?
As-tu fait une verification du contenu de ton répertoire (en mode DOS) en faisant tourner ton programme en pas à pas?

Edit --> Oups, j'arrive après la bataille... :oops:

Bon !
je suis content d'apprendre cette nouvelle !
Une question quand-même : n'était-il pas plus facile et plus clair, pour lire et supprimer au besoin, d'utiliser Dir ?
Si tu en veux un exemple, tu verras à quel point c'est plus facile à comprendre, à mettre en oeuvre et.... à expliquer !
Dis-moi

EDIT :
Ouvres un petit projet et vois ce que fait celà, par exemple, en donnant bien sur à appi le chemin de tes liens :
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Command1_Click() appi = "C:\Documents and Settings\marques.MARQUES-EUZXXHC\Favoris\Liens\" 'Liens myname = Dir(appi & "*.url*") Do While myname <> "" If myname <> "." And myname <> ".." Then MsgBox myname End If myname = Dir Loop End Sub
tu verras ce qu'il est largement possible d'en faire, y compris d'alimenter une listBox, si tu le veux !

29/04/2006, 13h31
Tyrael62

Oui jmfmarques , je veux bien voir un exemple mais le DIR , il me sert à quoi ici car si je me souviens de mes cours , on l'utilise pour vérifier l'existence d'un fichier.
29/04/2006, 13h32
jmfmarques

Déjà répondu : voir mon edit sur message précédent ;)

J'ai bien regardé ce que çà fait mais çà va me lire tous les liens de mon repertoire.Je te mets le code que j'utilise pour lire les liens des boutons de ma toolbar.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
i = 1
For Each objItem In colItems
 
If Button.Index = i Then
     GoTo suite
End If
i = i + 1
Next
suite:
 
Navigator.Navigate2 objItem.GetLink.Path

Tiens , pour un souci de clarté , je vais te mettre toutes les procédures intervenant de la création à la lecture des liens URL

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
 
'Partie de code sur la feuille MDI
 
Private Sub Ajout_fav_Click()
i = 0
Do
  i = i + 1
Loop Until i <> Explorateur.Favoris_bar.Buttons.Count
 
Favoris_button = Explorateur.Favoris_bar.Buttons.Add(i, , Explorateur.Navigator.LocationName)
favoris_lien = "Raccourci vers " & Explorateur.Navigator.LocationName & ".Url"
nom_lien = Explorateur.Navigator.LocationURL
Call ecrire_raccourci_liens(favoris_lien, nom_lien)
 
End Sub
 
'Partie de code située dans un module
 
'---------------------------- Lire le répertoire Liens -------------------------------
 
Public Sub lire_Favoris()
 
Dim Favoris_button As Variant
Dim objShell As Shell32.Shell
Dim objFolder As Shell32.Folder
Dim colItems As Shell32.FolderItems
Dim objItem As Shell32.FolderItem
 
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(App.Path & "\Liens")
Set colItems = objFolder.Items
i = 1
For Each objItem In colItems
  Favoris_button = Explorateur.Favoris_bar.Buttons.Add(i, , objItem.Name)
i = i + 1
Next
 
End Sub
 
'--------------------------- Ecrire le Raccourci liens --------------------------------
 
Public Sub ecrire_raccourci_liens(favoris_lien, nom_lien As String)
 
Dim WSHShell, Shortcut As Object
 
Set WSHShell = CreateObject("WScript.Shell")
 
Set Shortcut = WSHShell.CreateShortcut(App.Path & "\Liens\" & favoris_lien)
 
With Shortcut
    .TargetPath = WSHShell.ExpandEnvironmentStrings(nom_lien)
End With
 
Shortcut.Save
 
Call lire_Favoris
 
End Sub

Là ou je dois intervenir c'est au niveau de la création pour éviter que le nom soit trop long sinon il me crée automatiquemen un lien de type fichier(sans extension)

29/04/2006, 14h01
jmfmarques

Oui ?
Alors : en ce qui concerne l'emploi de Dir, il te suffit de donner le chemin du répertoire où tu as "inscrit" ! Le principe reste exactement le même !
Tu peux même ajouter une condition : si dans toolbar sinon laisser tomber
tu peux enfin alimenter une liste de ce que tu as dans le toolbar puis travailler avec et, au besoin, reconstituer ta tollobar après une suppression éventuelle
mais bon... tu y es arrivé d'une autre façon, alors c'est bon ....

pour ce qui est des noms longs, laisse-moi regarder ...
à +
29/04/2006, 14h09
jmfmarques

Je vois mal le problème des noms longs
essayes de forcer la main en faisant entourer par des guillemets
par exemple :
& """ & machin_lien & """
si cela ne vas pas essayes """" au lieu de """, puis"'" (1 simple entre 2 doubles) puis '"' (un double entre 2 simples)
C'est peut-être celà !:cry:
29/04/2006, 14h25
Tyrael62

J'y pensais pour la longueur du nom , je peux retourner sa longueur et si cette longueur excede une longueur limite prédéfini alors la chaine s'arrete à cette longueur limite , ce qui pourrai résoudre mon problème qu'en pense tu?
29/04/2006, 14h52
jmfmarques

L'accfès au forum rame comme ce n'est pas possible ....

C'est certes une solution, mais elle n'est pas élégante, hélàs !
Essayes le coup des guillemets dans les guillemets !...
29/04/2006, 15h59
Tyrael62

J'ai essayé les 2 façons mais il me declare des erreurs de syntaxe!
29/04/2006, 18h00
Tyrael62

Tu sais quoi , je vais faire une liste des sites qui peuvent passer car apparemment j'étais en train de me casser la tête à rien , c'est pas la longueur des noms de liens qui est en cause mais apparemment certains site ne peuvent pas être enregistré et je comprends absolument pas pourquoi!
29/04/2006, 18h22
jmfmarques

Essayes plutôt de faire une liste de ceux qui ne passent pas, que l'on voie ...
29/04/2006, 18h30
Tyrael62

Ok je vais les tester!
29/04/2006, 18h51
Tyrael62

Tous ce qui est Skyblog.
Le monde.fr : A la une
LI : le site
lefigaro
Lifehouse.com
y'en a d'autres mais bon çà me semble aléatoire
Je le tourne dans tous les sens , y'a rien de logique!Je vais essayer de faire des arrets de programme pour étudier si ya une anomalie distincte pendant la création du raccourci!
29/04/2006, 19h12
jmfmarques

Je viens d'essayer avec mon propre code (celui avec dir) et çà marche !

J'ai l'impression que ton problème provient d'une ambiguité dûe à la présence d'un point .com, par exemple, qui devient .com.url chez moi et qui est ensuite reconnu tel quel. Comment s'est-il écrit chez toi (par ta méthode) ?
Dans l'explorateur s'affiche : Lifehouse.com - Lifehouse.com (comme titre du raccourci) et mon code (par dir) lit celà :

Citation:

Text1
Personnaliser les liens.url
Hotmail.url
Windows.url
Yahoo! Mail.url
Mon Yahoo!.url
Yahoo!.url
Windows Media.url
Voila.url
Wanadoo.url
Yahoo! Mail - Le meilleur mail gratuit.url
Online Dating - Lifehouse.com.url
Lifehouse.com - Lifehouse.com.url
29/04/2006, 19h48
Tyrael62

Donc en faite tu créer ton raccourci avec ta méthode Dir!?
29/04/2006, 21h02
jmfmarques

Non ! la methode dir ne m'as servi qu''à recenser et lire !
Elle ne peut créer un raccourci !
les raccourcis doivent être créés comme tels et ta méthode est bonne pour ce faire, à la base.
Seule la gestion parait défaillante quant il y a un point. Et c'est sur celà que tu dois te focaliser !
Je demeures convaincu que l'emploi des """ bien gérés devrait te permettre de te sortir d'affaire.:?
29/04/2006, 21h06
Tyrael62

D'accord , je vais donc tout refaire en matiere de lecture des raccourci en utilisant ta méthode et je te dirais ce que sa donné , demain!allez bonne soirée.a demain.

Je patoge quand même avec ta méthode alors je te montre ce que j'ai fait!Attenttion çà ressemble plus à un mix des 2 méthodes.
A vrai dire , je vois pas comment t'as fait toi mais bon j'ai essayé de m'en sortir comme j'ai pu , mais au final çà fonctionne pas.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Dim ChemRep As String
Dim myname As Variant
Dim objShell As Shell32.Shell
Dim objFolder As Shell32.Folder
Dim colItems As Shell32.FolderItems
Dim objItem As Shell32.FolderItem
 
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(App.Path & "\Liens")
Set colItems = objFolder.Items
 
i = 1
For Each objItem In colItems
 
  ChemRep = App.Path & "\Liens\" 'Liens
  myname = Dir(ChemRep & objItem.Name & "*.url*")
 
If Button.Index = i Then
 
   Do While myname <> ""
    If myname <> "." And myname <> ".." Then
      GoTo suite
    End If
    myname = Dir
   Loop
End If
  i = i + 1
Next
suite:
Chemin = ChemRep & myname
Shell (Chemin)

02/05/2006, 10h26
ouskel'n'or

Tu as une erreur ? Si oui, sur quelle ligne ? Sinon, qu'obtiens-tu ?

A+

Mon erreur se situe du "shortcut.save",voici le code correspondant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Public Sub ecrire_raccourci_liens(favoris_lien, nom_lien As String) Dim WSHShell, Shortcut As Object Set WSHShell = CreateObject("WScript.Shell") Set Shortcut = WSHShell.CreateShortcut(App.Path & "\Liens\" & favoris_lien) With Shortcut .TargetPath = WSHShell.ExpandEnvironmentStrings(nom_lien) End With Shortcut.Save Explorateur.Favoris_bar.Buttons.Clear Call lire_Favoris End Sub
J'ai essayé de voir le problème avec mes profs mais peut s'y connaissent en VB et d'autres me disent que çà peut être du à l'envoi de Pop-Up de certains sites mais je vois pas ce que les PopUps empecheraient d'enregistrer mes raccourci normalement.

02/05/2006, 19h33
jmfmarques

As-tu essayé de faire un msgbox (dès qu'ils sont définis) de favoris_lien et de nom_lien ?
Car je crois que le problème est là (avant même de parler de lecture du répertoire !)
02/05/2006, 20h02
Tyrael62

oui et ce que je ne comprends pas c'est qu'il m'affiche bien le nom du site et le lien!C'est là que je m'y perds car d'apres ces tests , il devrait générer aucune erreur.Tout à l'heure , j'ai essayé mon programme sous un windows98 et là,il m'as pas laisser enregistré un fichier sans extension , il m'a signalé une erreur comme quoi le shortcut.save avait échoué.
02/05/2006, 21h05
jmfmarques

si tes msgbox affichent "du correct", je ne comprends plus !
A moins que ...
essayes donc de transformer favoris_lien et nom_lien ainsi, à tout hasard :
favoris_lien = Trim(favoris-lien)
nom-lien = Trim(nom-lien)

Si celà ne marche pas ainsi, va plus loin (il arrive quelquefois que des noms de fichiers soient bizarres) :
places un label label1, par exemple, puis
label1.caption = trim(favoris_lien)
puis favoris_lien = label1.caption
et kif-kif pour nom_lien ...
J'ai quelquefois eu des surprises de ce genre ! alors... on ne sait jamais ! Essayes !
02/05/2006, 21h42
Tyrael62

J'ai essayé ta méthode mais çà changes absolument rien!Tu crois si je crée un fichier d'enregistrement qui comporterait les noms des favoris et leur lien , çà pourrait fonctionner?Sinon j'aurais plus à faire une liste des sites qui passent.
En plus , t'aleur j'en parle à mon prof et il m'a sorti exactement cette solution!lool
02/05/2006, 21h50
jmfmarques

Je crains fort que tu doives y aller "à tatons" !
Le problème me parait survenir lors de la création de tes raccourcis URL !:(

bonsoir

pour ce lien qui pose probleme , que ce se passe t'il si tu cliques dessus manuellement ?

cela ne va pas regler ton probleme mais pour créer un raccourci dans un repertoire , voici la methode que j'utilise

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub Command1_Click()
'
'necessite d'activer la reference Windows Script Host Object Model
'
'Creation lien/raccourci url
'
Dim WshShell As IWshRuntimeLibrary.WshShell
Dim Raccourci As IWshRuntimeLibrary.WshURLShortcut
 
Set WshShell = CreateObject("WScript.Shell")
Set Raccourci = WshShell.createShortcut(App.Path & "\monLienPréféré.url")
Raccourci.TargetPath = "<a href="http://www.developpez.com/" target="_blank">http://www.developpez.com/</a>"
Raccourci.Save
End Sub

pour boucler sur les raccourcis d'un repertoire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Private Sub Command2_Click()
'
''boucle sur les liens d'un repertoire et lancement
'
Dim objShell As Shell32.Shell
Dim objFolder As Shell32.Folder
Dim colItems As Shell32.FolderItems
Dim objItem As Shell32.FolderItem
 
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(App.Path)
Set colItems = objFolder.Items
 
For Each objItem In colItems
    If objItem.IsLink Then 'boucle sur les liens
    'informations sur le lien
    Debug.Print objItem.Name
    Debug.Print objItem.Path
    Debug.Print objItem.GetLink.Path
 
    'pour afficher le lien dans un WebBrowser
    'WebBrowser1.Navigate objItem.GetLink.Path
 
    ' pour déclencher directement le lien
    'objItem.InvokeVerb
    End If
Next
End Sub

je viens de faire un test sans probleme , avec plus de 10 raccourcis , et un nom de lien qui contenait 55 caracteres

comme l'a deja fait remarquer Bbil , tu es sur que ce n'est pas le "If Button.Index = i Then" qui pose probleme ?

bonne soiree
michel

03/05/2006, 00h14
Tyrael62

J'ai essayé ta méthode et ton code mais au niveau de l'enregistrement çà me fais la meme chose que precedemment.
Je l'ai meme repris dans une application a part mais rien n'y fait , des que j'ajoute un lien qui veut pas prendre il me le prends pas et il me créé un fichier sans extension!
Je vois vraiment pas ce qu'il cloche , mon windows??ou mon Visual Basic?? tu crois que çà peut etre une cause.
03/05/2006, 05h44
SilkyRoad

bonjour

Citation:

des que j'ajoute un lien qui veut pas prendre il me le prends pas

qu'appelles tu un lien "qui veut pas prendre" ?

verifie que tu as indiqué les bons parametres ...

bonne journée
michel

Voir 40 message(s) de cette discussion en une page